home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1996 #15 / Monster Media Number 15 (Monster Media)(July 1996).ISO / os2 / pmcstex.zip / PM_BINS.ZIP / CYKL_IN.CMD < prev    next >
OS/2 REXX Batch file  |  1996-01-31  |  441b  |  15 lines
  1. /* This REXX is called by cykl!.cmd */
  2.  
  3. Call On Halt Name SignalHandler
  4.  
  5. parse arg WhichFile OldTime OldSize
  6. say "-----------------------------------------------------"
  7. do forever
  8.   call SysFileTree WhichFile, 'file', 'FT'
  9.   NewTime = translate(word(file.1,1))
  10.   NewSize = translate(word(file.1,2))
  11.   if (Compare(NewTime,'0')\=0 & ((Compare(NewTime,OldTime)\=0) | (Compare(NewSize,OldSize)\=0))) then 
  12.     exit
  13. end
  14. SignalHandler:
  15.